home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / male / mgif / mgif.bat < prev    next >
DOS Batch File  |  1993-01-28  |  3KB  |  239 lines
  1. @echo off
  2. cls
  3.  
  4. :M1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO M2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :M2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  36.  
  37. IF ERRORLEVEL 24 GOTO QUIT
  38. IF ERRORLEVEL 23 GOTO M1
  39. IF ERRORLEVEL 22 GOTO M3
  40. IF ERRORLEVEL 21 GOTO 42
  41. IF ERRORLEVEL 20 GOTO 41
  42. IF ERRORLEVEL 19 GOTO 40
  43. IF ERRORLEVEL 18 GOTO 39
  44. IF ERRORLEVEL 17 GOTO 38
  45. IF ERRORLEVEL 16 GOTO 37
  46. IF ERRORLEVEL 15 GOTO 36
  47. IF ERRORLEVEL 14 GOTO 35
  48. IF ERRORLEVEL 13 GOTO 34
  49. IF ERRORLEVEL 12 GOTO 33
  50. IF ERRORLEVEL 11 GOTO 32
  51. IF ERRORLEVEL 10 GOTO 31
  52. IF ERRORLEVEL 9 GOTO 30
  53. IF ERRORLEVEL 8 GOTO 29
  54. IF ERRORLEVEL 7 GOTO 28
  55. IF ERRORLEVEL 6 GOTO 27
  56. IF ERRORLEVEL 5 GOTO 26
  57. IF ERRORLEVEL 4 GOTO 25
  58. IF ERRORLEVEL 3 GOTO 24
  59. IF ERRORLEVEL 2 GOTO 23
  60. IF ERRORLEVEL 1 GOTO 22
  61.  
  62.  
  63. :M3
  64. TYPE 3.ANS
  65. ASK /FE "" ABCDEFGHI23
  66.  
  67. IF ERRORLEVEL 11 GOTO QUIT
  68. IF ERRORLEVEL 10 GOTO M2
  69. IF ERRORLEVEL 9 GOTO 51
  70. IF ERRORLEVEL 8 GOTO 50
  71. IF ERRORLEVEL 7 GOTO 49
  72. IF ERRORLEVEL 6 GOTO 48
  73. IF ERRORLEVEL 5 GOTO 47
  74. IF ERRORLEVEL 4 GOTO 46
  75. IF ERRORLEVEL 3 GOTO 45
  76. IF ERRORLEVEL 2 GOTO 44
  77. IF ERRORLEVEL 1 GOTO 43
  78.  
  79. :1
  80. VPIC /A dd_a15
  81. GOTO M1
  82. :2
  83. VPIC /A dd_a28
  84. GOTO M1
  85. :3
  86. VPIC /A dd_a83
  87. GOTO M1
  88. :4
  89. VPIC /A dd_a123
  90. GOTO M1
  91. :5
  92. VPIC /A dd_a125
  93. GOTO M1
  94. :6
  95. VPIC /A dd_a126
  96. GOTO M1
  97. :7
  98. VPIC /A dd_a170
  99. GOTO M1
  100. :8
  101. VPIC /A dd_b052
  102. GOTO M1
  103. :9
  104. VPIC /A dd_b078
  105. GOTO M1
  106. :10
  107. VPIC /A dd_b079
  108. GOTO M1
  109. :11
  110. VPIC /A dd_b080
  111. GOTO M1
  112. :12
  113. VPIC /A dd_b081
  114. GOTO M1
  115. :13
  116. VPIC /A dd_b082
  117. GOTO M1
  118. :14
  119. VPIC /A dd_b083
  120. GOTO M1
  121. :15
  122. VPIC /A dd_b085
  123. GOTO M1
  124. :16
  125. VPIC /A dd_b086
  126. GOTO M1
  127. :17
  128. VPIC /A dd_b087
  129. GOTO M1
  130. :18
  131. VPIC /A dd_b090
  132. GOTO M1
  133. :19
  134. VPIC /A dd_b091
  135. GOTO M1
  136. :20
  137. VPIC /A dd_b092
  138. GOTO M1
  139. :21
  140. VPIC /A dd_b093
  141. GOTO M1
  142. :22
  143. VPIC /A dd_b095
  144. GOTO M2
  145. :23
  146. VPIC /A dd_b097
  147. GOTO M2
  148. :24
  149. VPIC /A dd_b099
  150. GOTO M2
  151. :25
  152. VPIC /A dd_b102
  153. GOTO M2
  154. :26
  155. VPIC /A dd_b187
  156. GOTO M2
  157. :27
  158. VPIC /A dd_b204
  159. GOTO M2
  160. :28
  161. VPIC /A dd_b205
  162. GOTO M2
  163. :29
  164. VPIC /A dd_b208
  165. GOTO M2
  166. :30
  167. VPIC /A dd_b248
  168. GOTO M2
  169. :31
  170. VPIC /A dd_b250
  171. GOTO M2
  172. :32
  173. VPIC /A dd_b252
  174. GOTO M2
  175. :33
  176. VPIC /A dd_b281
  177. GOTO M2
  178. :34
  179. VPIC /A dd_b334
  180. GOTO M2
  181. :35
  182. VPIC /A dd_b354
  183. GOTO M2
  184. :36
  185. VPIC /A dd_b358
  186. GOTO M2
  187. :37
  188. VPIC /A dd_b360
  189. GOTO M2
  190. :38
  191. VPIC /A dd_b398
  192. GOTO M2
  193. :39
  194. VPIC /A dd_b430
  195. GOTO M2
  196. :40
  197. VPIC /A dd_dg5
  198. GOTO M2
  199. :41
  200. VPIC /A dd_dg6
  201. GOTO M2
  202. :42
  203. VPIC /A dd_dg7
  204. GOTO M2
  205. :43
  206. VPIC /A dd_dg8
  207. GOTO M3
  208. :44
  209. VPIC /A dd_dg9
  210. GOTO M3
  211. :45
  212. VPIC /A dd_dg10
  213. GOTO M3
  214. :46
  215. VPIC /A dd_gumby
  216. GOTO M3
  217. :47
  218. VPIC /A dd_j107
  219. GOTO M3
  220. :48
  221. VPIC /A dd_mb3
  222. GOTO M3
  223. :49
  224. VPIC /A dd_mb4
  225. GOTO M3
  226. :50
  227. VPIC /A dd_y15
  228. GOTO M3
  229. :51
  230. VPIC /A dd_y16
  231. GOTO M3
  232.  
  233. :QUIT
  234. CD\MALE\DDRUM
  235. DRUMV
  236.  
  237.  
  238.  
  239.